home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #1 / Ham Radio 2000.iso / ham2000 / packet / p_aa4re / bb212src / bbfwdn.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-06-15  |  1.1 KB  |  34 lines
  1. (*===========================================================================*)
  2. (* Forwarding -- non-overlay                                                 *)
  3. (*                                                                           *)
  4. (*   Copyright 1991 by H. Roy Engehausen.  All rights reserved.              *)
  5. (*                                                                           *)
  6. (*   This software may be freely distributed and used, but it may not        *)
  7. (*   under any circumstances be sold by anyone other than the author.        *)
  8. (*   It may be distributed by a commercial company as long as it is          *)
  9. (*   for no cost.                                                            *)
  10. (*                                                                           *)
  11. (*===========================================================================*)
  12.  
  13. UNIT BBFWDN;
  14.  
  15. INTERFACE
  16.  
  17.   USES
  18.     bbdummy;
  19.  
  20.   PROCEDURE wait_for_dead_task(t : tcb_ptr);
  21.  
  22. IMPLEMENTATION
  23.  
  24.   USES
  25.     bbtask;
  26.  
  27.   PROCEDURE wait_for_dead_task(t : tcb_ptr);
  28.     BEGIN;
  29.       WHILE NOT task_is_dead(t) DO
  30.         task_switch;
  31.     END;
  32.  
  33. END.
  34.